home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Tcl-Tk 8.0 / Pre-installed version / MoreFiles 1.4.3 / Pascal Interfaces / MoreDesktopMgr.p < prev    next >
Encoding:
Text File  |  1996-08-24  |  2.8 KB  |  96 lines  |  [TEXT/MPS ]
  1. UNIT MoreDesktopMgr;
  2.  
  3. {    Apple Macintosh Developer Technical Support                                }
  4. {                                                                            }
  5. {    A collection of useful high-level Desktop Manager routines.                }
  6. {    If the Desktop Manager isn't available, use the Desktop file            }
  7. {    for 'read' operations.                                                    }
  8. {                                                                            }
  9. {    We do more because we can...                                            }
  10. {                                                                            }
  11. {    by Jim Luther and Nitin Ganatra,                                        }
  12. {        Apple Developer Technical Support Emeriti                            }
  13. {                                                                            }
  14. {    File:        MoreDesktopMgr.p                                            }
  15. {                                                                            }
  16. {    Copyright © 1992-1996 Apple Computer, Inc.                                }
  17. {    All rights reserved.                                                    }
  18. {                                                                            }
  19. {    You may incorporate this sample code into your applications without        }
  20. {    restriction, though the sample code has been provided "AS IS" and the    }
  21. {    responsibility for its operation is 100% yours.  However, what you are    }
  22. {    not permitted to do is to redistribute the source as "DSC Sample Code"    }
  23. {    after having made changes. If you're going to re-distribute the source,    }
  24. {    we require that you make it clear in the source that the code was        }
  25. {    descended from Apple Sample Code, but that you've made changes.            }
  26.  
  27.  
  28. INTERFACE
  29.  
  30.     USES
  31.         Types, Files;
  32.  
  33. {***************************************************************************}
  34.  
  35.  
  36.     FUNCTION DTOpen (volName: StringPtr;
  37.                                     vRefNum: Integer;
  38.                                     VAR dtRefNum: Integer;
  39.                                     VAR newDTDatabase: Boolean): OSErr;
  40.  
  41.     FUNCTION DTGetAPPL (volName: StringPtr;
  42.                                     vRefNum: Integer;
  43.                                     creator: OSType;
  44.                                     VAR applVRefNum: Integer;
  45.                                     VAR applParID: LongInt;
  46.                                     VAR applName: Str255): OSErr;
  47.  
  48.     FUNCTION FSpDTGetAPPL (volName: StringPtr;
  49.                                     vRefNum: Integer;
  50.                                     creator: OSType;
  51.                                     VAR spec: FSSpec): OSErr;
  52.  
  53.     FUNCTION DTGetIcon (volName: StringPtr;
  54.                                     vRefNum: Integer;
  55.                                     iconType: Integer;
  56.                                     fileCreator: OSType;
  57.                                     fileType: OSType;
  58.                                     VAR iconHandle: Handle): OSErr;
  59.  
  60.     FUNCTION DTSetComment (vRefNum: Integer;
  61.                                     dirID: LongInt;
  62.                                     name: StringPtr;
  63.                                     comment: Str255): OSErr;
  64.  
  65.     FUNCTION FSpDTSetComment ({CONST}
  66.                                     VAR spec: FSSpec;
  67.                                     comment: Str255): OSErr;
  68.  
  69.     FUNCTION DTGetComment (vRefNum: Integer;
  70.                                     dirID: LongInt;
  71.                                     name: StringPtr;
  72.                                     VAR comment: Str255): OSErr;
  73.  
  74.     FUNCTION FSpDTGetComment ({CONST}
  75.                                     VAR spec: FSSpec;
  76.                                     VAR comment: Str255): OSErr;
  77.  
  78.     FUNCTION DTCopyComment (srcVRefNum: Integer;
  79.                                     srcDirID: LongInt;
  80.                                     srcName: StringPtr;
  81.                                     dstVRefNum: Integer;
  82.                                     dstDirID: LongInt;
  83.                                     dstName: StringPtr): OSErr;
  84.  
  85.     FUNCTION FSpDTCopyComment ({CONST}
  86.                                     VAR srcSpec: FSSpec;
  87.                                     {CONST}
  88.                                     VAR dstSpec: FSSpec): OSErr;
  89.  
  90.  
  91. {***************************************************************************}
  92.  
  93.  
  94. IMPLEMENTATION
  95.  
  96. END.